home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Skin_Vista210895482008.psc / Skin Vista Aero / Aero.frm next >
Text File  |  2008-04-09  |  9KB  |  293 lines
  1. VERSION 5.00
  2. Begin VB.Form Aero 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Skin Vista Aero The mere idea"
  5.    ClientHeight    =   9300
  6.    ClientLeft      =   60
  7.    ClientTop       =   0
  8.    ClientWidth     =   13845
  9.    Icon            =   "Aero.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   9300
  12.    ScaleWidth      =   13845
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    WindowState     =   2  'Maximized
  16.    Begin Vista_Aero.aicAlphaImage Label2 
  17.       Height          =   660
  18.       Left            =   2040
  19.       Top             =   4920
  20.       Width           =   7200
  21.       _ExtentX        =   12700
  22.       _ExtentY        =   1164
  23.       Image           =   "Aero.frx":AE5A
  24.       Props           =   5
  25.    End
  26.    Begin Vista_Aero.aicAlphaImage Command1 
  27.       Height          =   315
  28.       Left            =   840
  29.       Top             =   7200
  30.       Width           =   315
  31.       _ExtentX        =   556
  32.       _ExtentY        =   556
  33.       Image           =   "Aero.frx":C3B4
  34.       Props           =   5
  35.    End
  36.    Begin Vista_Aero.aicAlphaImage AlphaImage2 
  37.       Height          =   3150
  38.       Left            =   3360
  39.       Top             =   1440
  40.       Width           =   4200
  41.       _ExtentX        =   7408
  42.       _ExtentY        =   5556
  43.       Image           =   "Aero.frx":C851
  44.       Enabled         =   0   'False
  45.       Props           =   5
  46.    End
  47.    Begin Vista_Aero.aicAlphaImage AlphaImage1 
  48.       Height          =   3150
  49.       Left            =   3360
  50.       Top             =   1440
  51.       Width           =   4200
  52.       _ExtentX        =   7408
  53.       _ExtentY        =   5556
  54.       Image           =   "Aero.frx":2056A
  55.    End
  56.    Begin Vista_Aero.aicAlphaImage ucAlphaImage4 
  57.       Height          =   540
  58.       Left            =   8820
  59.       Top             =   390
  60.       Width           =   690
  61.       _ExtentX        =   1217
  62.       _ExtentY        =   953
  63.       Image           =   "Aero.frx":33A0A
  64.       Props           =   5
  65.    End
  66.    Begin Vista_Aero.aicAlphaImage ucAlphaImage2 
  67.       Height          =   540
  68.       Left            =   9600
  69.       Top             =   390
  70.       Width           =   945
  71.       _ExtentX        =   1667
  72.       _ExtentY        =   953
  73.       Image           =   "Aero.frx":34592
  74.       Props           =   5
  75.    End
  76.    Begin Vista_Aero.aicAlphaImage ucAlphaImage5 
  77.       Height          =   450
  78.       Left            =   9210
  79.       Top             =   420
  80.       Width           =   690
  81.       _ExtentX        =   1217
  82.       _ExtentY        =   794
  83.       Image           =   "Aero.frx":353AF
  84.       Props           =   5
  85.    End
  86.    Begin VB.Image Image1 
  87.       Height          =   285
  88.       Left            =   9765
  89.       Top             =   520
  90.       Width           =   615
  91.    End
  92.    Begin VB.Image Image2 
  93.       Height          =   285
  94.       Left            =   9000
  95.       Top             =   520
  96.       Width           =   435
  97.    End
  98.    Begin VB.Image Image3 
  99.       Height          =   285
  100.       Left            =   9375
  101.       Top             =   520
  102.       Width           =   435
  103.    End
  104.    Begin Vista_Aero.aicAlphaImage Picture1 
  105.       Height          =   8250
  106.       Left            =   60
  107.       Top             =   0
  108.       Width           =   11250
  109.       _ExtentX        =   19844
  110.       _ExtentY        =   14552
  111.       Image           =   "Aero.frx":3DB80
  112.    End
  113. End
  114. Attribute VB_Name = "Aero"
  115. Attribute VB_GlobalNameSpace = False
  116. Attribute VB_Creatable = False
  117. Attribute VB_PredeclaredId = True
  118. Attribute VB_Exposed = False
  119. '************************
  120. '* Karmba_a@hotmail.com *
  121. '*      MSLE 2008       *
  122. '************************
  123. Private X1 As Integer, Y1 As Integer
  124.  
  125. Private Sub AlphaImage1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  126. On Error Resume Next
  127.  
  128. End Sub
  129. Private Sub AlphaImage1_MouseEnter()
  130.     ' on mouse enter, we will grayscale and fade the bubble in
  131.     AlphaImage1.ShadowEnabled = False
  132.     AlphaImage1.grayScale = aiNoGrayScale
  133.     AlphaImage2.FadeInOut 100
  134. End Sub
  135.  
  136. Private Sub AlphaImage1_MouseExit()
  137.     ' on mouse exit we will fade bubble out, then when it
  138.     ' is completely faded out, we will grayscale cheetah
  139.     AlphaImage1.ShadowEnabled = True
  140.     AlphaImage2.FadeInOut 0
  141. End Sub
  142.  
  143. Private Sub Command1_Click(ByVal Button As Integer)
  144. End
  145. End Sub
  146.  
  147. Private Sub Form_Click()
  148. On Error Resume Next
  149.         Call SystrayOn(Me, "New Skin Vista Aero The mere idea")
  150.         Call SetForegroundWindow(Me.hwnd)
  151.         Me.Hide
  152.         Me.WindowState = 1
  153. End Sub
  154.  
  155. Private Sub Form_Load()
  156. On Error Resume Next
  157. AlphaImage2.Opacity = 0&
  158. End Sub
  159.  
  160. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  161. On Error Resume Next
  162.     Static lngMsg As Long
  163.     Dim blnflag As Boolean, lngResult As Long
  164.     
  165.     lngMsg = x / Screen.TwipsPerPixelX
  166.     If blnflag = False Then
  167.         blnflag = True
  168.         Select Case lngMsg
  169.         Case WM_LBUTTONCLK      'to popup on left-click
  170.             Call SystrayOff(Me)
  171.             Call SetForegroundWindow(Me.hwnd)
  172.             Me.WindowState = 2
  173.             TakeScreenShot Me, ""
  174.             Me.Show
  175.         Case WM_LBUTTONDBLCLK   'open on left-dblclick
  176.             PopupMenu mnuRestore
  177.         End Select
  178.     End If
  179.     ucAlphaImage2.Visible = False
  180.     ucAlphaImage4.Visible = False
  181.     ucAlphaImage5.Visible = False
  182. End Sub
  183.  
  184. Private Sub Form_Resize()
  185.     TakeScreenShot Me, ""
  186.     Command1.Visible = True
  187.     Picture1.Visible = True
  188. End Sub
  189.  
  190. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  191.     ucAlphaImage5.Visible = False
  192.     ucAlphaImage4.Visible = False
  193.     ucAlphaImage2.ZOrder 0
  194.     ucAlphaImage2.Visible = True
  195. End Sub
  196.  
  197. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  198.     ucAlphaImage5.Visible = False
  199.     ucAlphaImage2.Visible = False
  200.     ucAlphaImage4.ZOrder 0
  201.     ucAlphaImage4.Visible = True
  202. End Sub
  203. Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  204.     ucAlphaImage2.Visible = False
  205.     ucAlphaImage4.Visible = False
  206.     ucAlphaImage5.ZOrder 0
  207.     ucAlphaImage5.Visible = True
  208. End Sub
  209.  
  210. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  211.     Picture1.ZOrder 0
  212.     X1 = x
  213.     Y1 = y
  214.     Label2.ZOrder 0
  215.     Command1.ZOrder 0
  216.     AlphaImage1.ZOrder 0
  217.     AlphaImage2.ZOrder 0
  218. End Sub
  219. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  220.     If Button = 1 Then
  221.         Picture1.Left = Picture1.Left + x - X1
  222.         Picture1.Top = Picture1.Top + y - Y1
  223.         Command1.Left = Command1.Left + x - X1
  224.         Command1.Top = Command1.Top + y - Y1
  225.         AlphaImage1.Left = AlphaImage1.Left + x - X1
  226.         AlphaImage1.Top = AlphaImage1.Top + y - Y1
  227.         AlphaImage2.Left = AlphaImage2.Left + x - X1
  228.         AlphaImage2.Top = AlphaImage2.Top + y - Y1
  229.         Image1.Left = Image1.Left + x - X1
  230.         Image1.Top = Image1.Top + y - Y1
  231.         Image2.Left = Image2.Left + x - X1
  232.         Image2.Top = Image2.Top + y - Y1
  233.         Image3.Left = Image3.Left + x - X1
  234.         Image3.Top = Image3.Top + y - Y1
  235.         ucAlphaImage2.Left = ucAlphaImage2.Left + x - X1
  236.         ucAlphaImage2.Top = ucAlphaImage2.Top + y - Y1
  237.         ucAlphaImage4.Left = ucAlphaImage4.Left + x - X1
  238.         ucAlphaImage4.Top = ucAlphaImage4.Top + y - Y1
  239.         ucAlphaImage5.Left = ucAlphaImage5.Left + x - X1
  240.         ucAlphaImage5.Top = ucAlphaImage5.Top + y - Y1
  241.         Label2.Left = Label2.Left + x - X1
  242.         Label2.Top = Label2.Top + y - Y1
  243.     End If
  244.         ucAlphaImage2.Visible = False
  245.         ucAlphaImage4.Visible = False
  246.         ucAlphaImage5.Visible = False
  247.         Label2.ZOrder 0
  248.         Command1.ZOrder 0
  249.         AlphaImage1.ZOrder 0
  250.         AlphaImage2.ZOrder 0
  251. End Sub
  252.  
  253. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  254.     Dim a As Integer, B As Integer, A1 As Integer, b1 As Integer
  255.     a = Val(Left(Picture1.Tag, 7))
  256.     B = Val(Right(Picture1.Tag, 7))
  257.     A1 = Picture1.Left
  258.     b1 = Picture1.Top
  259.     If a + 300 > A1 And a - 300 < A1 And B + 300 > b1 And B - 300 < b1 Then
  260.         Picture1.Left = a
  261.         Picture1.Top = B
  262.     End If
  263.     B = 1
  264.     For a = 0 To Sqa * Sqb - 1
  265.         A1 = Val(Left(Picture1.Tag, 7))
  266.         b1 = Val(Right(Picture1.Tag, 7))
  267.         If A1 <> Picture1.Left Or b1 <> Picture1.Top Then
  268.             B = 0
  269.         End If
  270.     Next a
  271.         Image1.ZOrder 0
  272.         Image2.ZOrder 0
  273.         Image3.ZOrder 0
  274.         
  275.         
  276. End Sub
  277.  
  278.  
  279. Private Sub ucAlphaImage2_Click(ByVal Button As Integer)
  280. End
  281. End Sub
  282.  
  283. Private Sub ucAlphaImage4_Click(ByVal Button As Integer)
  284. On Error Resume Next
  285.         Call SystrayOn(Me, "New Skin Vista Aero The mere idea")
  286.         Call SetForegroundWindow(Me.hwnd)
  287.         Me.Hide
  288.         Me.WindowState = 1
  289. End Sub
  290.  
  291.  
  292.  
  293.